﻿Module XmlTools
#Region "Xml Read Elements"

    Public Function GetXmlAttrib(strRow As String, strParam As String) As String
        Dim xRow As Xml.XmlReader = Xml.XmlReader.Create(New IO.StringReader(strRow.Trim))
        xRow.Read()
        Return xRow.GetAttribute(strParam)
    End Function

    Public Function GetXmlElem(strRow As String) As String
        Dim xRow As Xml.XmlReader = Xml.XmlReader.Create(New IO.StringReader(strRow.Trim))
        xRow.Read()
        Return xRow.ReadInnerXml
    End Function

#End Region
End Module
